home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Communication / NewsBase / Source / findWindow.psw < prev    next >
Text File  |  1993-01-12  |  319b  |  14 lines
  1. defineps findWindowLocation(float mousePointX, mousePointY;
  2.                 int dragWindow| int *uWindow)
  3.  
  4.     /currentX mousePointX def
  5.     /currentY mousePointY def
  6.     /dWindow dragWindow def
  7.     
  8.     0 uWindow
  9.     currentX currentY Below dWindow findwindow
  10.     4 1 roll /belowWindow exch def
  11.     belowWindow uWindow
  12.     
  13. endps
  14.